home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / inputs / changebar.sty (.txt) < prev    next >
LaTeX Document  |  1991-05-20  |  20KB  |  402 lines
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. %    CHANGEBAR STYLE
  3. %    Written by:
  4. %        Michael Fine
  5. %        Distributed Systems Architecture.
  6. %        October, 1986.
  7. %       Revisions:
  8. %            Support for twosided.sty added.    January, 1987.
  9. %        Warning message added to indicate that another pass is
  10. %        required. May, 1987.
  11. % USAGE:
  12. %    \cbstart[dimension]
  13. %    \cbend
  14. %    All material between the two macros is barred.  Nested
  15. %    changebars are allowed.  The optional parameter specifies the
  16. %    width of the bar.  If no width is specified, the current value
  17. %    of the parameter \changebarwidth is used.  Note that \cbstart
  18. %    and \cbend can be used anywhere but must be correctly nested
  19. %    with floats and footnotes.  That is, you cannot have one end of
  20. %    the bar inside a floating insertion and the other outside, but
  21. %    that would be a meaningless thing to do anyhow.
  22. %     \setlength{\changebarwidth}{dimension}
  23. %     Sets the default width of the bar. 
  24. %     \setlength{\changebarsep}{dimension}
  25. %     Sets the separation between the bar and the left margin of the
  26. %     text.
  27. % IMPORTANT NOTE: Just as with cross references and labels, you
  28. % usually need to process the document twice (and sometimes three
  29. % times) to ensure that the changebars come out correctly.  However, a
  30. % warning will be given if another pass is required.
  31. % PARAMETERS:
  32. %    \changebarwidth
  33. %    A LaTeX length parameter that gives the bar width.  It can be
  34. %    changed with the \setlength command.  Changing its value affects
  35. %    all subsequent changebars subject to the scoping rules of
  36. %    \setlength.
  37. %    \changebarsep
  38. %    A LaTeX length parameter that gives the separation of the bar
  39. %    from the left margin of the text.  It can be set with the
  40. %    \setlength command.
  41. % FEATURES:
  42. %    Changebars may be nested within each other.  Each level of
  43. %    nesting can be given a different thickness bar.
  44. %     Changebars may be nested in other environments including floats
  45. %     and footnotes.
  46. %     Changebars are applied to all the material within the ``barred''
  47. %     environment, including floating bodies regardless of where the
  48. %     floats float to.  An exeception to this is margin floats.
  49. %     Changebars may cross page boundaries.
  50. % DEFICIENCIES AND BUGS:
  51. %    The macros blindly use specials points \cb@minpoint through
  52. %    \cb@maxpoint.  If this conflicts with another set of macros, the
  53. %    results will be unpredictable.  (What is really needed is a
  54. %    \newspecialpoint, analogous to \newcount etc.)
  55. %    There is a limit of (\cb@maxpoint-\cb@minpoint+1)/4 bars per
  56. %    page (four special points per bar).  Using more than this number
  57. %    yeilds unpredictable results (but that could be called a feature
  58. %    for a page with so many bars).  This limitation could be
  59. %    increased if desired
  60. %     Internal macro names are all of the form \@cbxxxx.  No checking
  61. %     for conflicts with other macros is done.  
  62. %    This implementation has not been designed for two column
  63. %    printing.
  64. %     The algorithms may fail if a floating insertion is split over
  65. %     multiple pages.  In LaTeX floats are not split but footnotes may
  66. %     be.  The simplest fix to this is to prevent footnotes from being
  67. %     split but this may make TeX very unhappy.
  68. %    The \cbend normally gets "attached" to the token after it rather
  69. %    than the one before it.  This may lead to a longer bar than
  70. %    intended.  For example, consider the sequence `word1 \cbend
  71. %    word2'.  If there is a line break between `word1' and `word2'
  72. %    the bar will incorrectly be extended an extra line.  This
  73. %    particular case can be fixed with the incantation `word1\cbend{}
  74. %    word2'.
  75. % BASIC ALGORITHM
  76. %    The changebars are implemented using the \specials of the DVI to
  77. %    LN3 translator.  In essence, the start of changebar defines a
  78. %    \special point in the margin at the current vertical position on
  79. %    the page.  The end of a changebar defines another point and then
  80. %    joins the two using the "connect" \special.
  81. %    This works fine as long as the two points being connected lie on
  82. %    the same page.  However, if they don't, the bar must be
  83. %    artificially terminated at the page break and restarted at the
  84. %    top of the next page.  The only way to do this (that I can think
  85. %    of) is to modify the output routine so that it checks if any bar
  86. %    is in progress when it ships out a page and, if so, adds the
  87. %    necessary artificial end and begin.
  88. %    The obvious way to indicate to the output routine that a bar is
  89. %    in progress is to set a flag when the bar is begun and to unset
  90. %    this flag when the bar is ended.  This works most of the time
  91. %    but, because of the asynchronous behavior of the output routine,
  92. %    errors occur if the bar begins or ends near a page break.  To
  93. %    illustrate, consider the following scenerio.
  94. %    blah blah blah        % page n
  95. %    blah blah blah
  96. %    \cbstart        % this does its thing and set the flag
  97. %    more blah
  98. %        <-------------- pagebreak occurs here
  99. %    more blah
  100. %    \cbend            % does its thing and unsets flag
  101. %    blah blah
  102. %    Since TeX process ahead of the page break before invoking the
  103. %    output routine, it is possible that the \cbend is
  104. %    processed, and the flag unset, before the output routine is
  105. %    called.  If this happens, the necessary artificial end and begin
  106. %    will not be added to page n and n+1, respectively.  Thus, it is
  107. %    not possible to use a flag to signal the output routine that a
  108. %    bar crosses a page break, and some other mechanism is required.
  109. %    The method used with these macros is to create a list of the
  110. %    beginning and end points of each bar in the document together
  111. %    with the page number corresponding to each point.  Then, as a
  112. %    page is completed, a modified output routine checks the list to
  113. %    determine if any bars begun on or before the current page are
  114. %    terminated on subsequent pages, and handles those bars
  115. %    appropriately.  To build the list, information about each
  116. %    changebar is written to the .AUX file as bars are processed.
  117. %    This information is re-read when the document is next processed.
  118. %    Thus, to ensure that changebars are correct, the document must
  119. %    be processed twice, but this is required for LaTeX anyway.
  120. %    This apprach is sufficiently general to allow nested bars, bars
  121. %    in floating insertions, and bars around floating insertions.
  122. %    Bars inside floats and footnotes are handled in the same way as
  123. %    bars in regular text.  Bars that encompass floats or footnotes
  124. %    are handled by creating an additional bar that floats with the
  125. %    floating material.  Modifications to the appropriate LaTeX
  126. %    macros check for this condition and add the extra bar.
  127. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  128. %    User Level Commands And Parameters
  129. % \cbstart    \cbend
  130. % Start and end a changebar and save state on \cb@currentlist.  Width of
  131. % new bar is determined by adding \changebarwidth to width of current
  132. % bar.  Does not invoke a LaTeX environment.
  133. \def\cbstart{\@ifnextchar [{\cb@xstart}{\cb@start\changebarwidth}}
  134.     \def\cb@xstart[#1]{\cb@start{#1}}
  135. \def\cbend{\if e\cb@currentlist
  136.     \message{Badly nested changebars.  Expect erroneous results.}\else
  137.     \cb@end\fi}
  138. % \begin{changebar}  \end{changebar}
  139. % Identical to \cbstart and \cbend but invokes a LaTeX environment to
  140. % enforce correct nesting.  Cannot be used in tabular and tabbing
  141. % environments.
  142. %\newenvironment{changebar}{\@bsphack\cbstart\@esphack}{\@bsphack
  143. %    \cbend\@esphack}
  144. % \changebarwidth
  145. % A LaTeX length parameter that gives the bar width.  Width of bar is
  146. % given by \changebarwidth multiplied by nesting level.
  147. \newlength{\changebarwidth}
  148. \setlength{\changebarwidth}{2pt}
  149. % \changebarsep
  150. % A LaTeX length parameter that gives the separation of the bar from the
  151. % left margin of the text.
  152. \newlength{\changebarsep}
  153. \setlength{\changebarsep}{30pt}
  154. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  155. %    Declarations And Initializations
  156. \let\cb@ig=\ignorespaces %useful abreviation
  157. \def\cb@maxpoint{80}        % max value of used special points
  158. \def\cb@minpoint{1}        % ditto for min;
  159.                 % MUST BE ODD ****
  160. \def\cb@nil{0}            % a void value for points
  161. \newcount\cb@nextpoint        % next value of special point to use
  162. \newcount\cb@currentpoint    % current value in use
  163. \cb@nextpoint=\cb@minpoint    % intially = \cb@minpoint
  164. \newcount\cb@page        % count for page value from hist list
  165. \newcount\cb@pagecount        % our internal count of pages output
  166. \cb@pagecount=0            % initially 0 due to timing of increment
  167. \xdef\cb@history{e}        % the history list; initially empty
  168. \xdef\cb@spanlist{e}        % list of bars spanning current page
  169. \xdef\cb@currentlist{e}        % used to implement nesting without using
  170.                 % TeX grouping
  171. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  172. %    Macros for beginning and ending bars
  173. % \cb@start#1        #1 is the dimension of the bar
  174. % This macro is used to start a change bar.  It assigns a new value to
  175. % the current point and advances the counter for the next point to be
  176. % assigned.  It pushes this info onto \cb@currentlist and then sets the
  177. % point by calling \cb@setBeginPoint with the point number.  Finally, it
  178. % writes the aux file.
  179. \def\cb@start#1{\cb@currentpoint=\cb@nextpoint
  180.     \@tempdima=#1\cb@ig                % for \cb@push
  181.     \cb@push\cb@currentlist
  182.     \ifvmode \cb@setBeginPoint\cb@currentpoint
  183.     \else \vbox to 0pt{\vskip -\ht\strutbox        %jump up a line to
  184.     \cb@setBeginPoint\cb@currentpoint        %set point
  185.     \vskip \ht\strutbox}\fi
  186.     \cb@writeAux\cb@advancePoint}
  187. \def\cb@advancePoint{\global\advance\cb@nextpoint by 4\cb@ig
  188.     \ifnum\cb@nextpoint>\cb@maxpoint
  189.     \global\cb@nextpoint=\cb@minpoint\relax\fi}
  190. % \cb@end
  191. % This macro is used to end a changebar.  It pops the current point and
  192. % nesting level off \cb@currentlist and sets the end point by calling
  193. % \cb@setEndPoint with the parameter corresponding to the BEGINNING
  194. % point number.  It writes the aux file and joins the points.
  195. \def\cb@end{\cb@pop\cb@currentlist
  196.     \cb@setEndPoint\cb@currentpoint
  197.     \advance\cb@currentpoint by1\cb@writeAux}
  198. % \cb@setBeginPoint#1
  199. % Assigns position to points #1 and #1+2.  First computes the position.
  200. \def\cb@setBeginPoint#1{\@tempdimb=\hoffset
  201.     \advance\@tempdimb by\oddsidemargin
  202.     \advance\@tempdimb by -\changebarsep
  203.     \special{ln03:defpoint \the#1(\the\@tempdimb,)}\cb@ig
  204.     \@tempcnta#1\advance\@tempcnta by2\@tempdimb=\hoffset
  205.     \advance\@tempdimb by\evensidemargin
  206.     \advance\@tempdimb by\textwidth
  207.     \advance\@tempdimb by\changebarsep
  208.     \special{ln03:defpoint \the\@tempcnta(\the\@tempdimb,)}}
  209. % \cb@setEndPoint#1
  210. % Assigns position to point #1+1 and point #1+3.  Then does a connect
  211. % special to join #1 and #1+1 or to join #1+2 and #1+3.  Assumes that
  212. % width of bar is given in \@tempdima
  213. \def\cb@setEndPoint#1{\@tempcnta=#1\advance\@tempcnta by1\cb@ig
  214.     \@tempdimb=\hoffset
  215.     \advance\@tempdimb by\oddsidemargin
  216.     \advance\@tempdimb by -\changebarsep
  217.     \special{ln03:defpoint \the\@tempcnta\space
  218.     \space(\the\@tempdimb,)}\if@twoside\@tempcntb=#1
  219.     \advance\@tempcntb by3\@tempdimb=\hoffset
  220.     \advance\@tempdimb by\evensidemargin
  221.     \advance\@tempdimb by\textwidth
  222.     \advance\@tempdimb by\changebarsep
  223.     \special{ln03:defpoint \the\@tempcntb\space
  224.     \space(\the\@tempdimb,)}\cb@ig
  225.     {\count9=#1\advance\count9 by2\cb@ig
  226.     \special{ln03:connect \the#1/\the\count9\space\space
  227.     \the\@tempcnta/\the\@tempcntb\space\space\the\@tempdima}}\else
  228.     \special{ln03:connect \the#1 \the\@tempcnta\space\space
  229.     \the\@tempdima}\fi}
  230. % \cb@writeAux
  231. % Writes the string
  232. % \cb@barpoint{\cb@currentpoint}{\thepage}{\cb@tempdima} to the aux
  233. % file.  Assumes that width of bar is in \@tempdima.
  234. \def\cb@writeAux{\begingroup \edef\point{\the\cb@currentpoint}\cb@ig
  235.     \edef\level{\the\@tempdima}\cb@ig
  236.     \let\the=0\edef\cb@temp{\write\@auxout
  237.     {\string\cb@barpoint{\point}{\the\cb@pagecount}{\level}}}\cb@ig
  238.     \cb@temp\endgroup}
  239. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  240. %    Macros for Making It Work Across Page Breaks
  241. % \@makecol
  242. % Modifies the LaTex macros to end the changebars spanning the current
  243. % page (if any) and restart them on the next page.  Does the
  244. % following: It resets special points for this page.  Adds begin bars
  245. % to top of box255.  The bars to be begun are saved in \cb@beginSaves.
  246. % Increments the changebar-internal page counter so that the value
  247. % corresponds to the number of this page in strictly sequential order
  248. % (the LaTeX page number can be reset).  Then it builds the list
  249. % \cb@spanlist, then calls \cb@processActive to process the elements
  250. % on the list, then it executes the original \@makecol.
  251. \let\cb@makecol=\@makecol
  252. \def\@makecol{\setbox255=\vbox{\special{ln03:resetpoints \cb@minpoint
  253.         \space\cb@maxpoint}\cb@beginSaves\unvbox255}\cb@ig
  254.     \gdef\cb@beginSaves{}\global\advance
  255.     \cb@pagecount by 1\cb@buildActive
  256.     \cb@processActive\cb@makecol}
  257. % \cb@processActive
  258. % Processes each element on span list.  Each element represents a bar
  259. % that crosses the page break.  There could be more than one if bars are
  260. % nested.  Works as folows:
  261. %    pop top element of span list
  262. %    if point null (i.e., list empty) then done
  263. %    else
  264. %        do an end bar on box255
  265. %        save start for new bar at top of next page in \cb@startSaves
  266. %        push active point back onto history list (need to reprocess
  267. %        on next page).
  268. \def\cb@processActive{\cb@pop\cb@spanlist
  269.     \ifnum\cb@currentpoint=\cb@nil \else
  270.     \setbox255=\vbox{\unvbox255\cb@setEndPoint\cb@currentpoint}\cb@ig
  271.     \cb@saveBeginPoint\cb@currentpoint \cb@push\cb@history
  272.     \cb@processActive\fi}
  273. % \cb@saveBeginPoint#1
  274. % Saves a \special to begin a point in expanded macro \cb@beginSaves.
  275. % This is then used to start all spanning bars at the top of the next
  276. % page.  It is almost the same as \cb@setBeginPoint
  277. \def\cb@saveBeginPoint#1{\@tempdimb=\hoffset
  278.     \advance\@tempdimb by\oddsidemargin
  279.     \advance\@tempdimb by -\changebarsep
  280.     \xdef\cb@beginSaves{\special{ln03:defpoint \the#1(\the
  281.     \@tempdimb,)}\cb@beginSaves}
  282.     \@tempcnta#1\advance\@tempcnta by2\@tempdimb=\hoffset
  283.     \advance\@tempdimb by\evensidemargin
  284.     \advance\@tempdimb by\textwidth
  285.     \advance\@tempdimb by\changebarsep
  286.     \xdef\cb@beginSaves{\special{ln03:defpoint \the\@tempcnta(\the
  287.     \@tempdimb,)}\cb@beginSaves}}
  288. \def\cb@beginSaves{}                % initially empty
  289. % \cb@buildActive
  290. % Initializes the spanlist to null.  Pops top of history list.  If point
  291. % is on future page, push back onto history list.  If point on current
  292. % or previous page and odd, add point to span list; if even, pop span
  293. % list since this bar has terminated on current page.
  294. \def\cb@buildActive{\xdef\cb@spanlist{e}\cb@pushNextActive}
  295. \def\cb@pushNextActive{\cb@pop\cb@history
  296.     \ifnum\cb@currentpoint=\cb@nil \else
  297.     \ifnum\cb@page>\cb@pagecount \cb@push\cb@history \else
  298.     \ifodd\cb@currentpoint \cb@push\cb@spanlist
  299.     \else \cb@pop\cb@spanlist\fi
  300.     \cb@pushNextActive\fi\fi}
  301. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  302. %    Macros For Managing The Lists of Bar points
  303. % The macros make use of three lists corresponding to \special
  304. % defpoints.  Each list takes the form
  305. %    <element> . . . <element>e
  306. % Each element is of the form xxxnyyypzzzl where xxx is the number of
  307. % the special point, yyy is the page on which this point is set, and zzz
  308. % is the dimension used when connecting this point.
  309. % The list \cb@history is built from the log information and initially
  310. % lists all the points.  As pages are processed, points are popped off
  311. % the list and discarded.
  312. % The list \cb@spanlist is a temporary list used by the output routine
  313. % and contains the list of all bars crossing the current page (there may
  314. % be more than one with nested bars).  It is built by popping elements
  315. % off the history list.
  316. % The list \cb@currentlist contains all the current bars.  A \cb@start
  317. % pushes an element onto this list.  A \cb@end pops the top element off
  318. % the list and uses the info to terminate the bar.
  319. % \cb@pop#1        #1 is name of list (e.g., \cb@history)
  320. % This pops the top element off the named list and puts the point value
  321. % into \cb@currentpoint, the page value into \cb@page and the bar width
  322. % into \@tempdima.  If the list is empty, returns a void value (\cb@nil)
  323. % in \cb@currentpoint and sets \cb@page=0
  324. \def\cb@pop#1{\if e#1\cb@currentpoint=\cb@nil\cb@page=0\else
  325.     \expandafter\cb@carcdr#1#1\fi}
  326. \def\cb@carcdr#1n#2p#3l#4e#5{\cb@currentpoint=#1\cb@page=#2\@tempdima=#3\cb@ig
  327.     \xdef#5{#4e}}
  328. % \cb@push#1
  329. % Pushes \cb@currentpoint, \cb@page and \@tempdima onto the top of the
  330. % named list
  331. \def\cb@push#1{\xdef#1{\the\cb@currentpoint n\the\cb@page p\the\@tempdima l#1}}
  332. % \cb@backpush#1#2#3
  333. % Pushes #1 #2 and #3 onto the BACK of the history list.  #1 is the
  334. % point value, #2 the page, and #3 the bar width.  This is used for
  335. % initializing the history list from the data in tha .AUX file.
  336. \def\cb@backpush#1#2#3{\expandafter\cb@append\cb@history#1n#2p#3l}
  337.     \def\cb@append#1e#2n#3p#4l{\xdef\cb@history{#1#2n#3p#4le}}
  338. \let\cb@barpoint=\cb@backpush    % all we do is push aux entries onto back
  339.                 % of history list
  340. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  341. %      Macros For Checking That The .AUX File Is Stable
  342. % \document
  343. % This is a replacement for the LaTeX \document macro.  The
  344. % replacement makes a copy of the history list (which has just been
  345. % built from the .AUX file) which is used to compare with the new .AUX
  346. % file that will be created.  It also \lets
  347. % \cb@barpoint=\cb@checkHistory to  prepare for checking the new .AUX
  348. % file.
  349. \let\cb@document=\document
  350. \def\document{\cb@document\xdef\cb@prevHistory{\cb@history}\cb@ig
  351.     \let\cb@barpoint=\cb@checkHistory}
  352. % \cb@checkHistory
  353. % Pops the top of the original history list (\cb@prevHistory) and
  354. % check to see if the point and page numbers are the same as the
  355. % arguements #1 and #2 respectively.  Prints a warning message if
  356. % different. 
  357. \def\cb@checkHistory#1#2#3{\cb@pop\cb@prevHistory
  358.         \ifnum #1=\cb@currentpoint
  359.         \ifnum #2=\cb@page        % do nothing
  360.         \else \cb@error           % page numbers mismatched
  361.         \fi
  362.     \else \cb@error               % point numbers mismatched
  363.     \fi}
  364. \def\cb@error{\message{Changebar Warning: Changebar info has changed. %
  365. Rerun to get right.}\gdef\cb@checkHistory##1##2##3{}%
  366. \let\cb@barpoint=\cb@checkHistory}
  367. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  368. %    Macros For Making It Work With Nested Floats/Footnotes
  369. %        Works for LaTeX 2.09
  370. % \end@float
  371. % This is a replacement for the Latex macro of the same name.  All it
  372. % does is check to see if changebars are active and, if so, it puts
  373. % changebars around the box containing the float.  Then it calls the
  374. % original LaTeX \end@float
  375. \let\cb@endfloat=\end@float
  376. \def\end@float{\cb@pop\cb@currentlist\ifnum\cb@currentpoint=\cb@nil
  377.     \else \cb@push\cb@currentlist\global\@tempdima=\@tempdima 
  378.         \egroup \global\setbox
  379.     \@currbox=\vbox{\cb@start\@tempdima\unvbox\@currbox\cb@end}\bgroup\fi
  380.     \cb@endfloat}
  381. \let\endfigure=\end@float    % need to rebind these to new def
  382. \let\endtable=\end@float
  383. % \@footnotetext#1
  384. % Replacement for the LaTeX macro of the same name.  Simply checks to
  385. % see if changebars are active and if so wraps the macro arguement
  386. % (i.e., the footnote) in changebars.
  387. \let\cb@footnote=\@footnotetext
  388. \long\def\@footnotetext#1{\cb@pop\cb@currentlist\ifnum\cb@currentpoint=\cb@nil
  389.     \cb@footnote{#1}\else \cb@push\cb@currentlist
  390.     \edef\cb@temp{\the\@tempdima}\cb@ig
  391.     \cb@footnote{\cb@start{\cb@temp}#1\cb@end}\fi}
  392. % \@mpfootnotetext#1
  393. % Replacement for the LaTeX macro of the same name.  Same thing as
  394. % \@footnotetext.
  395. \let\cb@mpfootnote=\@mpfootnotetext
  396. \long\def\@mpfootnotetext#1{\cb@pop\cb@currentlist
  397.         \ifnum\cb@currentpoint=\cb@nil
  398.     \cb@mpfootnote{#1}\else \cb@push\cb@currentlist
  399.     \edef\cb@temp{\the\@tempdima}\cb@ig
  400.     \cb@mpfootnote{\cb@start{\cb@temp}#1\cb@end}\fi}
  401. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  402.